home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / OOmodules / library / commodities.e < prev    next >
Encoding:
Text File  |  1996-06-08  |  1.9 KB  |  165 lines
  1. OPT MODULE
  2.  
  3. MODULE  'oomodules/library',
  4.         'oomodules/object',
  5.  
  6.         'commodities',
  7.         'libraries/commodities'
  8.  
  9. EXPORT OBJECT commodities OF library
  10. /****** library/commodities ******************************
  11.  
  12.     NAME
  13.         commodities() of library --
  14.  
  15.     SYNOPSIS
  16.         library.commodities()
  17.  
  18.     FUNCTION
  19.  
  20.     RESULT
  21.  
  22.     EXAMPLE
  23.  
  24.     CREATION
  25.  
  26.     HISTORY
  27.  
  28.     NOTES
  29.  
  30.     SEE ALSO
  31.         library
  32.  
  33. ********/
  34. ENDOBJECT
  35.  
  36. EXPORT PROC init() OF commodities
  37. /****** commodities/init ******************************
  38.  
  39.     NAME
  40.         init() of commodities --
  41.  
  42.     SYNOPSIS
  43.         commodities.init()
  44.  
  45.     FUNCTION
  46.  
  47.     RESULT
  48.  
  49.     EXAMPLE
  50.  
  51.     CREATION
  52.  
  53.     HISTORY
  54.  
  55.     NOTES
  56.  
  57.     SEE ALSO
  58.         commodities
  59.  
  60. ********/
  61.  
  62.   self.version:=0
  63.   self.open()
  64.  
  65. ENDPROC
  66.  
  67. PROC open() OF commodities
  68. /****** commodities/open ******************************
  69.  
  70.     NAME
  71.         open() of commodities --
  72.  
  73.     SYNOPSIS
  74.         commodities.open()
  75.  
  76.     FUNCTION
  77.  
  78.     RESULT
  79.  
  80.     EXAMPLE
  81.  
  82.     CREATION
  83.  
  84.     HISTORY
  85.  
  86.     NOTES
  87.  
  88.     SEE ALSO
  89.         commodities
  90.  
  91. ********/
  92.  
  93.   IF cxbase THEN RETURN
  94.  
  95.   IF (cxbase := OpenLibrary('commodities.library', self.version))=NIL THEN Throw("lib", 'Unable to open commodities.library')
  96.  
  97. ENDPROC
  98.  
  99. PROC close() OF commodities
  100. /****** commodities/close ******************************
  101.  
  102.     NAME
  103.         close() of commodities --
  104.  
  105.     SYNOPSIS
  106.         commodities.close()
  107.  
  108.     FUNCTION
  109.  
  110.     RESULT
  111.  
  112.     EXAMPLE
  113.  
  114.     CREATION
  115.  
  116.     HISTORY
  117.  
  118.     NOTES
  119.  
  120.     SEE ALSO
  121.         commodities
  122.  
  123. ********/
  124.  
  125.   IF cxbase THEN CloseLibrary(cxbase)
  126.  
  127. ENDPROC
  128.  
  129.  
  130.  
  131. PROC end() OF commodities
  132. /****** commodities/end ******************************
  133.  
  134.     NAME
  135.         end() of commodities --
  136.  
  137.     SYNOPSIS
  138.         commodities.end()
  139.  
  140.     FUNCTION
  141.  
  142.     RESULT
  143.  
  144.     EXAMPLE
  145.  
  146.     CREATION
  147.  
  148.     HISTORY
  149.  
  150.     NOTES
  151.  
  152.     SEE ALSO
  153.         commodities
  154.  
  155. ********/
  156.  
  157.   self.close()
  158.  
  159. ENDPROC
  160.  
  161.  
  162.  
  163.  
  164. PROC name() OF commodities IS 'Commodities'
  165.